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TITLE REMXPORT = PROVIDE THE ACP TRANSPORT MECHANISM 
-IDENT ‘V04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE it FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
E THE RMS SUC E H_TH 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeponet ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO — ator: 


BI 
SOFTWARE ON EQUIPMENT WHICH I 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


cf * 
© t 
* « 
* * 
* cy 
* * 
* e 
€ ® 
® * 
B T * 
* TRANSFERRED. y 
* * 
* x 
* * 
* * 
* a 
© * 
x * 
© * 
te * 
** * 


LAE RARARRRABARAAASARAAAAAAASEAASRAREREAAARAS RRS RASA RARER A RASA RA SERR SSSA SSS 


FACILITY: REMOTE 1/0 ACP 


ABSTRACT: 
This module handles the mechanism for transporting 
ACP messages. 


SOSOSCSSCOSSOSCOSCSOSOSOOSOSOSOOCOOOOOSOOCOOOSOoOSoOO 
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This version of the module uses: 
PRARRBRBASBAAAAAAASASLAALALAL SE CS | 


DECnet 


tARRBRAAAARAALASARSAALASASL SE SG & | 
as its transport mechanism. 


ENVIRONMENT: 
MODE = KERNEL 
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0 44 
33 22 : AUTHOR: SCOTT G. DAVIS, CREATION DATE: 11-JUL<-79 
0 79 : MODIFIED BY: 
000 48 ; 
B38 49 ; V03-001 JLV0218 Jake VanNoy 7-Jan-1982 
000 50 ; Add code to declare object type 42. TSA requires 
000 >) fs this new object type. Store object type requested 
444 26 : in UCB. 
0000 2 : VO2-005 SPF0050 Steve Forgey 31-Dec-1981 
8308 2? ; Store logical Link number in RT UCB. 
0000 57; V02=004 DJD2002 Darrell Duffy 2-May-1981 
444 28 : Fix to ignore Link error mailbox messages. 
0000 60; V02-003 DJD2001 Darrell Duffy 27-Feb-1981 
+443 03 ; Allow for max Links at init time. 
0000 8 : VO2-002 $GD2001 Scott G. Davis 23-Sep-1980 
0000 64 ; Remove multiple devices, ignore unknown messages 


REMXPORT 
vo4=000 


50 43 41 4D 45 52 000000 
3A 54 45 4E 5F 000000 
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0000 


0€0000' 
4D 5F 


08' 
58 
1A 


0000 
16 
00000017 


0000000D 


Q0000000F 
00000011 


000000A7 
00000118 
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68 
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96 


he se es ss Ss 4 SS 


Vit WM -OVONAUES WN -OOONOUSWN—O”/0 
»@ 


S 


; INCLUDE FILES: 


RT~OBJ2 


MBXDESC: 


NETDESC: 
NFBDESC: 


DIBDESC: 


+ MACROS: 


: EQUATED SYMBOLS: 
MBX_MSG_ 
T_OBJ 


LTH = 150 
= 2 
= 42 


Ww 


> OWN STORAGE: 


.PSECT REM_XP_PURE.NOWRT , NOEXE 
.ASCID /REMACP_MBX/ 
eASCID /_NET:/ 

“LONG 5 
ADDRESS 


NFB 
“LONG _DIBSK_LENGTH 
ADDRESS DIBBUF 
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Size of a mailbox message 
Object number for network cmd term 
Object number for TSA remote term 


Logical name of mailbox 


Device name for channel assignment 
NFB (FIB) descriptor 


Descriptor for device info bfr 


.PSECT REM_XP_IMPURE NOSHR,NOEXE,RD,WRT 


NFB: -BYTE NFBSC_DECLOBJ 
NFB_OBJ: -LONG’ RT_OBJ 
MBX Q_ I0SB: 
NCBBESC: 

-BLKQ 1 
MBX_T_BUFFER: 

-BLKW 

-BLKW 1 
MBX_T_DATA: 

-BLKB MBX _MSG_LTH 
DIBBUF: .BLKB DIBS$K_LENGTA 


Function code (DECLARE OBJ) 
Object number 

1/0 status block 

Multiplex with MBX I0SB 
Status of 1/0 completion 


; Buffer for mailbox message 
; Message identification 


Not used 

On connect initiates, et cetera 
Leave room for message 

Device information buffer 


a 
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0000 »PSECT REM_XP_CODE ,NOWRT 


+ 
- 


REMSXPORT_START = initialize the transport mechanism 


11 115 
0 16 
0 117 ; 
0 18 3 
00 119 ; 
000 120; 
4 : 1 ; FUNCTIONAL DESCRIPTION: 
0000 1 § ; This routine gets a channel for rejecting connection requests and S 
444 : : 3 for declaring object types, to receive inbound connections. : 
444 1 § 3; OUTPUTS: | S$ 
000 127 ; S 
0000 §8128 ; RO = LBC=>NG, LBS=>0K S 
0000 129 ; Ss 
0000 130 ;-- | S 
0000 = 13) Ss 
0000 136 REMSXPORT_START:: S 
494 133 ; | Ss 
000 134 ; Create a mailbox for inbound connects, etc. 
0000 135; 
0000 136 SCREMBX_S- | | 
0000 137 CHAN= W*REMSGW_MBX_CHAN- ; 
0000 138 MAXMSG= #MBX_MSG_LTH= : 
0000 139 BUFQUO= #<MBR_MSG_LTH*16>- ; P 
0000 140 LOGNAM= W*MBXBESC™ = ; Mailbox's logical name . 
0000 141 PROMSK= #0 3 P 
3350 €9 0021 £142 BLBC RO,10$ ; If LBC error $ 
00246 143; : ‘ 0 
80 : 108 3; Get a channel for rejects and mailbox info I 
015A 30 0024 146 BSBw REMSXPORT_CHAN ; Get a channel to the network 
2050 «£9 b05q 12 BLBC RO,10$ ; If LBC couldn't find one slot! 
: | 
002A 149 ; Declare both object types for multiple inbound connects 
002A 150; P 
002A 151 58: | - 
002A 138 $Q10W_S CHAN= a@W*REMSGL_CHANVECCR11],- I 
QO02A 15 FUNC= $*#10$_ACPCONTROL,- C 
002A 154 = W*MBX Pin P 
Q02A 155 Pi= W*NFBDES S 
08 50 ? 004C 156 BLBC RO,10$ ; If LBC NG : P 
50 0005'CF C O04F 157 MOVZWL W*MBX_Q_I10SB,RO ; Get the 1/0 completion code Ss 
0150 €8 0054 £158 BLBS RO,20$ : If LBS ok P 
0057 159 10$: C 
05 0057 #160 RSB ; Done A 
0058 161 20$: 
OOO1'CF 2A D1 0058 196 CMPL #RT_OBJ2,W“NFB_OBJ ; Done both? T 
07 13 0050 16 BEQL 5$ ; Branch if yes. 8 
OOO1'CF 2A 9A QOSF 164 MOVZBL #RT_OBJ2,W*NFB_OBJ ; Set second object type T 
C4 «11 Bnee 192 25$ BRB 5$ ; Loop } 
0000'DF4B 01 00 BRee 18? 308 MOVL #1,aW*REMSGL_UCBVECCR11) ; Stuff dummy value to show busy 
01 90 at 169 MOVB #REMSC_MBX_READ,R10 ; Set up for a mailbox read 
FFBE* 31 is y8 170 BRw REMSENQUEUE 3; Queue the request and return 


REMXPORT 
v04-000 


00" 00 
0000°8F 00 
59 = 00 


5C 50 


O5'CF 


5B 0000'CF 


0000'DF4B 


57 
03 
F5 58 
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007 17 
O73 158 
7 174 ;+ 
? 175 ; REMSMBX_READ - This routine puts a read out on the mailbox for 
Bee 178 ; process termination and inbound connect notifications 
0072 178 REMSMBX_READ:: ; Post read to mailbox 
0072 179 $Q10_S CHAN = W*REM$GW_MBX_CHAN,-= 
007 180 FUNC = $*#10$_READVBLK,- 
0072 181 ASTADR = B*MBX_AST,- 
007 182 10SB = W*MBX~Q_10SB,- 
007 18 PI = W*MBX~T~BUFFER,- 
07 184 P2 = #MBX_ASG_LTH 
E9 QO9A 185 BLBC RO,MBX_FAILURE ; If LBC error 
05 009D 186 RSB 3; return 
QOO9E 187 ;++ 
OOSE 188 ; : 
QO9E 189 ; MBX_AST =- This routine services process terminations 
O09E 190 ; and inbound connect notifications. 
OO9E 191; 
OO09E 135 }= 
OFFC OQO9E 19 X_AST: WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
B1 O0A0 194 CMPW W*°MBX_Q_10SB,$*#SS$_ABORT ; Was the 1/0 cancelled? 
13° QOAS 195 BEQL 0$ ; If EQL yes 
Bl 00A7 196 CMPW  W*MBX_Q_IOSB,#SS$_CANCEL ; Iry this code, too 
13 OOAE 197 BEQL 50$ ; If EQL yes 
9E 0080 198 MOVAB = W*MBX_T_BUFFER,R9 ; Point to message buffer 
3¢ 600B5)=—s:«4199 MOVZWL (R9)+7RB ; Save mailbox message code 
BO 0088 200 MOVW (R9)+,R7 ; Get device dev_unit number 
9A 00BB 201 MOVZBL (R9),RO ; Get Length of device name 
OOBE 202 ; Counted ASCII string 
D6 OOBE 203 INCL RO ; 
CO O00CO 204 ADDL RO,R9 ; Pass device name string 
00c3 205; ; : 
00C3 206 ; Determine device index 
00c3 207 ; , 
5A 00C3 208 MOVZBL W*REMSGB_MAXLINKS,R11 ; Init count 
00Cc8 209 10$: 
B1 00C8 210 CMPW =—saR7,, W*REMSGL_MBX_UNITSCR11) ; Match? 
13° QOCE 211 BEQL ; If EQL yes 
F5 00D0 si¢ SOBGTR R11,10$ ; Loop 
0003 «= 213 jeanne 2 
00D3 14 ; FATAL = unit number not found 
ite 15 jeanne 
00D 216 
00D3 217 208: 
0003 218; | 
00D3 219 ; Dispatch 
it 220 ; 
10 00D 221 BSBB 100$ ; Allow for easy return 
00D5 $56 ; by action routines 
90 00D5 2 MOVB #REMSC_MBX_READ,R10 ; Set up for a mailbox read 
30 00D8 4 BSBW REMSENQUEUE 3 Queue the request 
04 one 5 50$: RET : Done 
OODC ; $ ; Dispatch to action routine matching logical Link event 
00DC 28 ; 


———____-— 


REM 


XPORT 


v04-000 
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05 


RJ points to mailbox data 


EM.SRCJREMXPORTD.MAR; 1 


; Entry point 
; Case on event code 


QODC 9: : : 

OODC Q ; Ril contains device index 

OODC 1; 

OODC é 1008: 

00DC SDISPATCH R6,- 

OODC 4 

0ODC § 5 <-; event action 

OODC 236 

OODC 237 <MSG$_CONNECT, CONN_REQ> 
OODC 238 <MSG$_ABORT, LINK~BROKEN>, 
O0ODC 239 <MSG$_DISCON, LINK~BROKEN>, 
OODC g40 <MSG$_EXIT, LINK~BROKEN>, 
O0DC 241 <MSG$~PATHLOST, LINK=BROKEN>, 
O0DC 34g <MSG$~ PROTOCOL LINK~BROKEN>, 
O0DC 24 <MSG$_THIRDPARTY, | LINK~BROKEN>, 
OODC 244 <MSGS$_NETSHUT, NET_SHUTDOWN>, 
OODC 245 > 

OOF8 246 RSB 

OOF9 247 MBX_FAILURE: 

OOF9 248 BUG_CHECK ACPMBFAIL, FATAL 


-; Connect request received 
k broken 


ink broken 
ink broken 
Network shutting down 


; Ignore other messages 


Page 
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55 0000°DF4B 
64 AS 10 
FEE3" 


5A 02 
FEDD' 


5A 0005'CF 
8A 


oo 
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AAAA AAI PPIPINIPINIPINININININININNININYININININININININYNININIPINPINPININPYNININIPYNININIPYPSPyPonoropofnononyd 
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; CONFIRM_AST = This is the AST routine for connect accepts. 
; Issue a read over the Link. 


CONF IRM_AST: 
MOVL 


: 1/0 failed 
, BSBW = REMSKILL_UCB 
i. RET 


MOVL $a@W*REM$GL_UCBVECCR11), 
BICB #UCBSM ONCINE,UCBSW_ 


BSBW REMSSEND 


CONFIG 
MOVB #REMSC_LAK_READ,R10 


BSBW REMSENQUEUE 
RET 


+ 
+ 


INPUTS: 
R9 - points at counted NCB 


CONN_REQ: 
MOVAB W*NCBDESC,R10 
MOVZBL (R9)+,(R10)+ 
OVL  R9, (R10) 
SUBL2 #4.R10 
OVL  S*#I0$_A 


mM CCESS,R9 
MOVAB B*CONFIRM_AST,R8 


“M<R2,R3,R4,R5,R6,R7,R8 


R9,R10,R11> 
t the coves sane 


f LBS 1/0 was OK 


D 
»,R ; Ge 
EMSGL_RIOSBVECERITI,RO, ; Get the I0S 


; Clean up the channel 


Done 


; Get the UCB address 


yy hig for CONFIGURE 
00 


; Send one, 

; Set up for a Link read 
; Queue the work element 
; Dismiss the AST 


CONN_REQ = Connection request received - figure out who and why. 
Llocate a channel and a UCB, set up the data bases, 
and confirm the Link, if everything is copasetic, 
else reject the logical Link. 


Point to descriptor 


Store length 


Pointer to data 
Point to descriptor 


Set the initial function code 
; For confirm, take an AST 


: Try to set up a database for this channel 


i BSBW REMSSET_UP_IN 
BLBS RO, 200 
> Can't take this Link - reject it 


i008: 


; Do it 
; If LBS OK 


- 
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yO-000 ~Eee 88s OS: kzi 1s PREM ee MeebotD dans 1 en 
5 OOOO'CF 9A O13F 07 MOVZBL W*REM$GB_MAXLINKS,R11 ; Set up index of reject ‘‘device’’ 
28 QOOO'DF B80 O14 08 MOVW @W*REM$GC_REJ_CHAN,R7 ; Get reject estes 
59 O0000°8F AB 0149 09 BISW #1O$M_ABORT,R9 ; AQ al? the function code 
58 4 Bie 10 CLRL 4 3; No 
1D 11 15 11 BRB 225$ 
015 \¢ 200$: 
55 0000'DF4B DO 015 1 MOVL UeesusRyT= “hin INK(RS) Get UCB address 
0D6 C5 R 015 14 CLRW UCBSW (R5) 3; Initialize cell 
04 BA 6A eF A 015C 15 LOCC ty tat -a4(R10) Find seperator in NCB 
0c 13 0161 16 BEQL 225$ if EQL, seperator not found 
0006 CS 01 As BO SO0163~—s 317 MOV 1(R1),UCBSW_RTT_LINK(RS): ; Store logical Link number in RT UCB 
0008 cS) «15 Al=-«90 B19? 18 2258 MOVB 21(R15, UCBSB_RTT_OBJ(R5); Store object type requested 
55 0000'DF 4B 7E O16F $0 MOVAQ BP RENCE, AISISVECIATTS RS Get the I0SB address 
56 DS 0175 1 CLRL R6 3 No P1 
FE86" 30 0177 358 BSBW REM$DO_Q10 3; Perform the requisite 1/0 
03 50 33 O17A 2 BLBS RO,2508 ; If LBS OK | 
FE8O" 30 O017D 324 BSBw REMSKILL_UCB ; The I/0 failed - clean up 
0180 325 250$: 
05 0180 326 RSB : Done 
0181 327 
0181 328 
0181 329 
0181 330 ;++ 
0181 331; 
att 338 3; REMSXPORT_CHAN - Get a channel to the network and set up various vectors 
0181 334 ; INPUTS: 
0181 335 ; 
0181 336 ; None 
0181 337; 
0181 338 ; OUTPUTS: 
0181 339; 
0181 340 ; RO - lbs => things are OK; lbc => NG 
0181 341 ; R11 = device index 
0181 308 : Channel no. and unit stored 
0181 343; 
0181 344 ;-- 
0181 345 
0181 346 REMSXPORT _CHAN:: ree 
5B OOO0'CF 9A pie! $7 -_ MOVZBL W*REMSGB_MAXLINKS,R11 ; Init index 
OO0O'DF4B D5 0186 349 TSTL awWw*REMSGL_UCBVECCR11] ; Free slot? 
13 8138 50 BEQL ; If EQL yes 
F6 5B SF 18D 51 SOBGTR R11,10$ ; Loop 
50 D4 0190 26 CLRL RO ; Return error 
05 8198 5 RSB ; Done 
019 54 208: i: 
0193 55 SASSIGN_S get W*NETDESC- NET:** refers to NETACP 
0193 356 “CHAN= al CREMSGL EMANVECCRIITS ; Store channel 
0193 57 MBXNAMS W “MBXDESC : Spec ity associated mailbox 
1F 50 €9 OQ1A9 58 BLBC RO,100$ Big assignment failed 
O1AC 59 $GETCHN_S CHAN= ats ye iHANVECER] Discover the unit no. of ne 
pias 60 PRIBUF= W°DIBDESC ; Address of char buf descriptor 
O0B3'CF BO OIC 61 MOVW W*D BBUF +D1B$w UNIT, =; gtore associated unit 
0000'DF4B iC? 6¢ ane a@w*REMSGL_MBX_ONITS(R{1 
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-SEP-1984 54:18 CREM.SRCIREMXPORTD.MAR; 1 
05 01CB 64 RSB ; That is all 
1¢C 65 
1¢C 08 
Bite 67 ;++ 
1¢¢ 68 ; . : 
Bice $3 ; LINK BROKEN = The logical Link was broken 
QO1CC 71 ; INPUTS: 
O1CC i 3 : 
O01CC 733 R11 = device index 
O1CC 74; 
O1CC 05 3-- 
01CC 76 
01CC 377 LINK_BROKEN: 
O1CC 3=—s 378 ‘ : 
Q01CC 379 ; We ignore mailbox error codes which signal Links are breaking because 
Q1CC 380 ; it is not feasible or necessary to synchronize actions taken here with those 
Q1CC 381 ; taken in rttdriver and elsewhere. There is always io outstanding to the 
Q1CC 382 ; Link, either here during protocol init or in rttdriver. This io will 
O1cC }§8=—383 ; complete with errors when the Link breaks and appropriate action will be 
O1CC 384 ; taken. 
O1cc 3s 38S 8 
05 O1CC 386 RSB 
O1CD 387 
O1CD 388 ;++ 
01CD 389 ; . 
01CD 390 ; NET_SHUTDOWN - Network is shutting down. Go away, since there is no 
aie Hd : way to keep ‘declared name" or “declared obj'’ info around. 
01CD 395 :; Side effects: 
Q1CD 38394 ; . ; P 
01CD 395 ; Mount count is cleared - equivalent to running STOPREM 
O1CD 396 ; 
01CD 397 ;-- 
01CD 398 
01CD 399 NET_SHUTDOWN: 
52. OOO00'CF 00 O1CD 400 MOVL W*REMS$GL_Q_HEAD,R2 ; Get the AQB address 
0B A2 94 O1D2 401 CLRB © AQBS$B_MNTCAT (R25 : Mark for dismount 
05 0105 402 RSB ; Done 


~ 
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j++ 
; FUNCTIONAL DESCRIPTION: 


BIN_TO_ASC = THIS ROUTINE CONVERTS A BINARY NUMBER TO AN 
ASCII STRING WITH ZERO SUPPESSION. 
CODE IS DUE TO BILL BROWN (JBC_BIN2ASC). 


CALLING SEQUENCE: 
BSB BIN_TO_ASC 
INPUT PARAMETERS: 
RO = NUMBER TO CONVERT 
R1 = SCRATCH 
R3 = ADDRESS OF PLACE TO STORE FIRST BYTE 
OUTPUT PARAMETERS: 


NUMBER IS CONVERTED AND STORED 
R3 1S INCREMENTED PAST LAST BYTE STORED 


IMPLICIT OUTPUTS: | 
RO AND R1 ARE RETURNED ZERO 


jeolelelelelelelelelsleolelelelelelelelelelelelelelelelelelolelelelelelalelelelola) 
kk kd dh ho 
MMMMMMMMOOOVVVVVVTVTVIVVVVTVTVTVTIVTVTVVVVCVT"C0C0900"C07C7—€ 
SYP OH LNT WAAASAAAAAAAAAAAAOAAAOAAAAAOAAOOOAO 
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WR O OONAUES WN 0 ODNOAUE WN O ODNOU SW OOONOUS 


BIN_TO_ASC: ; ENTER WITH JSB/BS 

1 04 CLRL sR : ZERO HI 1/2 OF QUAD WORD 

A 78 20$:  EDIV #10,R0,R0,-(SP) : DIVIDE BY DECIMAL RADIX 

0 CO ADDL  #*A/0/. (SP) : CONVERT TO ASCII 

0 05 TSTL = RO : ANYTHING LEFT TO CONVERT 

: as BEQL 308 ; BR IF NO MORE SIGNIFICANT DIGITS 

2 10 BSBB «208 : RECURSE THRU ASCII CONVERT 
83 BE Fé 30$: CVTLB  (SP)+,(R3)+ : INSERT ASCII UNIT NUMBER 

05 RSB : UNWIND RECURSIVE LOOP 
END 


™“ 

mm 

“ 

oO 

ow 

mo 
@OnOvVinouw 


fon - 
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REMXPORT = PROVIDE THE ACP TRANSPORT MECHANISM 16-SEP-1984 03:13:16 AX/VMS Macro V04-00 Page 11 | EX 
Symbol table =SEP=1984 02:54:18 CREM.SRCIREMXPORTD.MAR; 1 (11) 
$$T1 = id REMSMBX_READ 00000072 ~ 4 Mo 
AQB$B_MNTCNT = 00 aE REMSSEND_ CONFIG trereeet 4 oa 
BIN 000001D6 R 04 REMSSET OP_IN teeeenee 4 RM 
BUGS pcPrer Att. eeeeeree§ =X = 04 REMSXPORT_CHAN 00000181 RG 04 RM 
CON Im OOOOOOFD R 04 REMSXPORT_START 00000000 RG 04 IN 
CON Rea: 4 bE me 04 RT_OBJ = 00000017 SY 
bibs. RE ENGTH = 0000 8 4 RT-OBJ2 = 0000002A CJ 
DIBSW-UNIT = 000 0¢ SS$_ABORT eerenere§ XX 04 MA 
DIBBUF. 000000A7 R 03 SS$- CANCEL aeeeeeee =X 04 SY 
DIBDESC 00000027 R 02 SYSSASSIGN weeneere GX 04 RM 
10 T terenere = X 04 SYSSCREMBX aeeeneee GX 04 
1O$_ACCESS eeeeneee KX 04 SYSSGETCHN eeeeeree GX 04 
10$-ACPCONTROL eenerere X04 SYS$QI0 aeeeeeee GX 04 
10$" READVBLK eererere = X = 04 SYS$Q10W teeeeeee GX 04 
LINR_BROKEN OOOOOICC R 04 UCBS$B_RTT_OBJ = 00000008 
MBXDESC 00000000 R 02 UCBSK_RTT_LEN = 00000138 
MBX_ QOOOOO9SE R 04 UCBSK_RTT_LENGTH = 0000013 
MBX~F AILURE OOO000F9 R 04 UCB$L_DEVBEPND2 = 0000004 
MBX_MSG_LTH = 00000096 UCBSL_RTT_CTRLC = 00000094 
mBx-Q_10S8 00000005 R 03 UCase RTT CTRL = 00000090 
MBX~T_BUFFER 0000000D R 03 UCBSL_RTT_DEVDEPEND2 = 00000048 
MBX T DATA 00000011 R 03 UCB$L_TL_BANDQUE = 0000009C 
MSG$_ABORT = 00000030 UCBSL_TL_CTRLC = 00000094 
MSG$_CONNECT = sea tit UCBSL_TL_CTRLY = 00000090 
MSG$_DISCON = 0000003 UCB$L_TL-OUTBAND = 00000098 
MSG$_EXIT = 00000034 UCBSM_ONLINE = 00000010 
MSG$_NETSHUT = 00000038 UCBSW_RTT_LINK = 000000D6 
MSGS_PATHLOST = 00000036 UCBSW_STS~ = 00000064 
MSG$_PROTOCOL = 00000037 

MSG$_THIRDPARTY = 00000039 
NCBDESC 00000005 R 03 

NE TDESC 00000012 R 02 
NET_ SHUTDOWN 000001CD R 04 
NF 00000000 R 03 
NFBSC_DECLOBJ = 00000016 

NFBDESC QOOOOOIF R 02 
NFB OBJ 00000001 R 03 
REMSC_CURECO = 00000001 
REMSC_CURVRS = 00000001 
REMSC_LNK_READ = 00000002 
REMS$C_MAXBEVS = 0000000A 
REMSC_MAXLINKS = 00000010 
REMSC_MAXUNITS = 00000010 
REMSC_MBX_RE = 00000001 
REMSC_S;_ATTRIB = 00000002 
REMSC” ST” CONFIG = 00000001 

REM alto eteerene x 04 
REMSe NOUEVE eererere§ = X = 04 
REM$GB_MAXL INKS eenerere§ X 04 
REM$GL~ CHANVEC eenerere§ KX 04 
REMSGL_MBX_UNITS eeereeee x 04 
REM$GL_Q_HEAD eeeneeee =X = 04 
REMS$GL_REJ_ CHAN teeneeeer XK 04 
RENSGL_RIOSBVEC eeeeeree§ =X 04 
REM$GL~UCBVEC eeeeneee§ = X = 04 

REMSGW_ MBX CHAN eeeeeeee§ KX 04 
REMSKICL_UTB eeteeeeee§ = X 04 


rc 


| REMXPORT 
Psect synopsis 


The working set_ Limit was 1500 pages. ; , 

ae eyeee 18S pages) of virtual memory were used to buffer the intermediate code 
ere were 

443 source Lines were read in Pass 1, producing 20 object records in Pass 2. 

42? pages of virtual memory were used to define 40 macros. 


+ 
! Macro Library statistics ! 
deseo ne wee eee eee eer eee ee ee + 


Macros defined 


Macro Library name 


-$255$DUAZ8: CREM.OBJJREM.MLB; 1 
_$255$DUA28:(SYS.OBJJLIB.MLB;1 1 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 1 
TOTALS ‘all Libraries) 3 
1839 GETS were required to define 31 macros. 


There were no errors, warnings or information messages. 


1 12 
- PROVIDE THE ACP TRANSPORT MECHANISM 16-SEP-1984 02:13:14 
s23Eb=198e 08:50:18 


pages of symbol table space allocated to hold 1601 non-local and 24 ‘ocal symbols. 


X/VMS Macro Vv04-00 Page 12 - 
EM.SRCJREMXPORTD.MAR; 1 (11) 


tom ne wor we smernrocas + 

: Psect synopsis ! 

¢oeeeececea wae eeeoaa + 
PSECT name Allocation PSECT No. Attributes 
»§ 2 . 00000000 <( 0.) 0O¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 

$ SOOO OOF ( .} 01 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD 
REM_XP_PURE QOOOOO2F 47.) 8s ( ‘3 NOPIC USR CON REL LCL NOSHR NOEXE RD 
REM_XP_ IMPURE 00000118 (¢ 283.) 8 ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
REM_XP_CODE QOOOOIEA ( 490.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR RD 
bee ee een ene ee oes ees ew ooeces 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 00 + 0000-08 00:00:00.33 
Command processing 107 be Se 00:00:02.35 
Pass 422 00:00:16.31 00:00:34.77 
Symbol table sort 0 bs Se 00:00:04.37 
Pass 92 00:00:02.68 00:00:05.19 
Symbol table output 11 eS BE 00:00:00.58 
Psect synopsis output 2 00:00:00.0 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 666 00:00:22.25 00:00:47.62 


MACRO/LIS=L1S$:REMXPORTD/OBJ=OBJ$:REMXPORTD MSRC$:REMXPORTD/UPDATE=(ENHS:REMXPORTD) +EXECML$/LIB*LIB$:REM/LIB 


DE 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NOWRT NOVEC BYTE 


TCTTAL EQUI 


0312 BH:BT13A-SE | ENT CORPORAT 
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